home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / prg_basi / qbsvga.zip / PRTEST.BAS < prev    next >
BASIC Source File  |  1996-08-09  |  1KB  |  36 lines
  1. '
  2. '  This is a simple example to show how the printer routines are called.
  3. ' Remove the leading comment character for whichever kind of printer you
  4. ' have attached to LPT1--if you actually want to run the program, as
  5. ' opposed to simply looking at it.  (Note that there are two sets of calls
  6. ' to the printer routines, and as always, you need to link with QB.LIB
  7. ' or run QB with the /L option.)  (Feel free to change the 150 DPI
  8. ' parameter in the calls to HPRINT if you want.)
  9. '
  10. '  Put the contents of REGTYPE.INC here.
  11. '
  12. '  Draw circle in 640 x 480 x 256 mode and print it.
  13. '
  14.     CALL BSCREEN(14!,15!,0!,0!)
  15.     CALL BCIRCLE(150!,150!,140!,14!,0!,0!,1!)
  16. '    CALL HPRINT(0!,0!,300!,300!,150!,0!)       'HP Laserjet/Deskjet
  17. '    CALL PRINT8(0!,0!,300!,300!,0!,"I")        '8-pin/IBM mode
  18. '    CALL PRINT8(0!,0!,300!,300!,0!,"S")        '8-pin/native mode
  19. '    CALL EPRINT(0!,0!,300!,300!,0!)            '24-pin Epson LQ
  20. '
  21. '  Draw rectangle around screen in 800 x 600 x 16 mode and print it.
  22. '
  23.     CALL BSCREEN(15!,15!,0!,0!)
  24.     CALL BLINE(0!,0!,799!,599!,14!,"B")
  25. '    CALL HPRINT(0!,0!,799!,599!,150!,1!)
  26. '    CALL PRINT8(0!,0!,799!,599!,1!,"I")
  27. '    CALL PRINT8(0!,0!,799!,599!,1!,"S")
  28. '    CALL EPRINT(0!,0!,799!,599!,1!)
  29. '
  30. '  Reset screen and quit.
  31. '
  32.     CALL BSCREEN(0!,7!,0!,0!)
  33.     END
  34. '
  35. '  Put the contents of QBSVGA.BAS here.
  36.